Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64687 Skopiuj do schowka Blokada znaku wodnego w Wordzie
Autor Wiadomość
adjustin84
Starszy Forumowicz


Posty: 25
Wysłany: 09-04-2019, 08:52   Blokada znaku wodnego w Wordzie

Witam
jak mógłbym zablokować edycję znaku wodnego w Wordzie?
Interesuje mnie rozwiązanie VBA. Chyba, że czegoś nie widzę w Wordzie, jednakże standardowa blokada edycji zmusza mnie do zrobienia formularza, a nie do końca o to mi chodzi.
Ciekawi mnie, czy można z poziomu VBA uniemożliwić usunięcie znaku wodnego.

Blokada znaku wodnego w Wordzie.docx
Pobierz Plik ściągnięto 5 raz(y) 24.44 KB

ID posta: 365674 Skopiuj do schowka
 
 
J_B 
Excel Expert


Pomógł: 269 razy
Posty: 775
Wysłany: 09-04-2019, 11:02   

Nie jestem dobry z worda ale jak dodałem znak za pomocą makra to jakoś nie daje się go usunąć poleceniem "Usuń znak wodny"
Ale to może tylko ja nie potrafię tego zrobić :-D
Kod:
Sub WstawZnakWodny()
    Dim myShape As Shape
   
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes.AddTextEffect(msoTextEffect2, "Jestem nieusuwalny", _
        "Arial Black", 36#, msoFalse, msoFalse, 231#, 105.75).Select
    Set myShape = Selection.ShapeRange(1)
    With myShape
        .TextEffect.Text = "Jestem nieusuwalny"
        .WrapFormat.Type = wdWrapNone
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .Left = wdShapeCenter
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
        .Top = wdShapeCenter
        .Fill.Visible = msoTrue
        .Fill.Solid
        .Fill.ForeColor.RGB = RGB(181, 181, 181)
        .Fill.Transparency = 0#
        .Line.Visible = msoFalse
        .Height = 350.35
        .Width = 400.35
        .WrapFormat.AllowOverlap = True
        .LockAnchor = False
    End With
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
ID posta: 365688 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2625 razy
Posty: 8661
Wysłany: 09-04-2019, 22:16   

Hmm, a gdyby tak bez makr...

Spróbuj to obejść. Jak nie dasz rady, to wtenczas Ci powiem jak to zrobić. :-)

Artik

Blokada znaku wodnego w Wordzie - mod.docx
Pobierz Plik ściągnięto 8 raz(y) 21.35 KB

_________________
Persistence is a virtue in the world of programming.
ID posta: 365759 Skopiuj do schowka
 
 
adjustin84
Starszy Forumowicz


Posty: 25
Wysłany: 10-04-2019, 20:58   

Witam,
przetestowałem i jednak można usunąć znak wodny edytując nagłówek.
Chyba, że makro miałoby się uruchamiać za każdym razem po nowym otwarciu pliku, więc rozumiem, że w ten sposób można by wymusić pojawianie się znaku wodnego.

A czy jest jakiś inny sposób? Chyba, że coś źle zrozumiałem.
ID posta: 365829 Skopiuj do schowka
 
 
J_B 
Excel Expert


Pomógł: 269 razy
Posty: 775
Wysłany: 11-04-2019, 08:34   

Artik napisał/a:
Spróbuj to obejść. Jak nie dasz rady, to wtenczas Ci powiem jak to zrobi

Niestety twój i mój sposób są do obejścia tak jak pisze
adjustin84 napisał/a:
przetestowałem i jednak można usunąć znak wodny edytując nagłówek

wyatarczy 2klik myszką na nagłówek i po sprawie (przycisk znaku wodnego może być nieaktywny)
adjustin84 napisał/a:
Chyba, że makro miałoby się uruchamiać za każdym razem po nowym otwarciu pliku

Nie da rady wystarczy że makra są wyłączone i po ptakach pozostaje tylko standardowa blokada
Tak mi się wydaje :-)
ID posta: 365843 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2625 razy
Posty: 8661
Wysłany: 12-04-2019, 10:12   

Widząc w nazwie autora "LEX", od razu nasuwa się pytanie na ile mocne ma być to zabezpieczenie?
Bo poniższe jest raczej takie sobie.

Przyznam, że zatoczyłem wieeeelkie koło, by powrócić do swojego pierwotnego pomysłu, z małą modyfikacją.
Jak to ma działać.
1. Wyłączamy niektóre elementy wstążki modyfikując jej XML. Zablokowane przyciski: Znak wodny, Nagłówek, Numer strony i na wszelki wypadek, cała zakładka Narzędzia nagłówków i stopek. Modyfikacja blokuje także własne dostosowania wstążki oparte na ikonach wbudowanych. Po polsku mówiąc, jeśli ktoś doda do wstążki nowe ikony wybierając je przez Dostosowanie wstążki, to wspomniane wyżej ikony będą zablokowane.
2. Dokument, z pomocą makra, jest zabezpieczany przed edycją w momencie zamykania pliku.
3. Przy otwieraniu pliku zabezpieczenie jest zdejmowane.
4. Gdy użytkownik dwukliknie na nagłówek, zdarzenie WindowSelectionChange przeniesie zaznaczenie spowrotem do dokumentu głównego. W ten sposób uniemożliwiamy użytkownikowi zaznaczenie WordArt-a znajdującego się w nagłówku.
Blokada dokumentu przed edycją ma chronić na wypadek, gdy użytkownik nie włączy makr.

Wiadomo, kod trzeba jeszcze zahasłować. A jak wiemy zabezpieczenie to jest liche.
Tak więc na niewprawnego użytkownika powyższe zabezpieczenia powinny wystarczyć. Dla bardziej "zainteresowanego" nie będą one stanowiły jakiejś wielkiej przeszkody, tym bardziej, że w zasadzie cały tekst możemy skopiować do nowego pliku, który nie będzie zawierał znaku wodnego.

Pozostawiam w projekcie kod, z którym walczyłem. Wszystko co nieistotne zostało zakomentowane.

To teraz spróbuj to obejść.

Artik

Blokada znaku wodnego w Wordzie - mod.docm
Pobierz Plik ściągnięto 7 raz(y) 34.02 KB

_________________
Persistence is a virtue in the world of programming.
ID posta: 365927 Skopiuj do schowka
 
 
J_B 
Excel Expert


Pomógł: 269 razy
Posty: 775
Wysłany: 12-04-2019, 11:22   

Nie wiem czy powinienem podpowiadać ale...
Zapisuję plik jako .docx
Zdejmuję ochronę dokumentu (proszę autora o hasło )
Edytuję nagłówek ppm i wycinam nożyczkami
Artik napisał/a:
Tak więc na niewprawnego użytkownika powyższe zabezpieczenia powinny wystarczyć. Dla bardziej "zainteresowanego" nie będą one stanowiły jakiejś wielkiej przeszkody

Szczera prawda
  
ID posta: 365934 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe