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: 63687 Skopiuj do schowka Otwieranie pliku Word z hasłem i zapisanie bez hasła
Autor Wiadomość
apollo
ExcelSpec


Pomógł: 1234 razy
Posty: 4296
Wysłany: 05-01-2019, 00:18   Otwieranie pliku Word z hasłem i zapisanie bez hasła

Witam Was serdecznie,

Myślałem, że sprawa jest łatwa, a to niespodzianka.

Mam plik a.docx z hasłem do otwierania = "123456". Chcę otworzyć a.docx, po czym zapisać pod tą samą nazwą ale już bez hasła - czyli zdjąć hasło.

Napisałem kod w pliku Excel (w rzeczywistym projekcie nazwy, hasła itd. są w pliku Excel).
Kod:

Sub RemovePass()
Dim filename As String, wordApp As Object, doc As Object
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True
    filename = ThisWorkbook.Path & "\a.docx"
    Set doc = wordApp.documents.Open(filename, PasswordDocument:="123456")
    doc.SaveAs2 filename:=filename, Password:=""
'    doc.Save
    doc.Close
    wordApp.Quit
    Set doc = Nothing
    Set wordApp = Nothing
   
    MsgBox "Done"
End Sub


Jednak po uruchomieniu kodu plik a.docx nadal ma hasło "123456" - przy ręcznym otwieraniu a.docx WORD prosi o hasło.

Czy u Was też będzie tak samo? Jeśli tak to gdzie może być błąd? Jaki ma być kod, który otworzy plik z podanym hasłem i zapisuje już bez hasła?

Jeśli u Was po uruchomieniu kodu plik a.docx już nie ma hasła to, jak myślicie, dlaczego u mnie a.docx nadal ma hasło?

Mam Word 2010 wersji angielskiej.

Z góry dziękuję za wszelką pomoc

a.docx
Pobierz Plik ściągnięto 22 raz(y) 19 KB

removepass.xlsm
Pobierz Plik ściągnięto 23 raz(y) 17.27 KB

ID posta: 359715 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2647 razy
Posty: 8778
Wysłany: 05-01-2019, 00:49   

Problem tkwi w nazwie pliku zapisywanego. Próbujesz nadpisać istniejący plik filename. Gdy nowemu plikowi nadałem inną nazwę, po otwarciu był już bez hasła.
Nie myślałem jak problem obejść w przypadku gdy niezbędnym jest nadpisanie.
..::Edit
Pierwsze co przychodzi do głowy, to zapis pod inną nazwą, usunięcie starego i zmiana nazwy nowego na starą. (już mnie ogonkowiec wyprzedził).
Lub podobne, zapis w innej lokalizacji, usunięcie starego i przesunięcie nowego do starej lokalizacji. ::..

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 359722 Skopiuj do schowka
 
 
ąćęłńóś
Excel Expert


Pomógł: 202 razy
Posty: 960
Wysłany: 05-01-2019, 00:53   

Zapisać pod nową nazwą a następnie zmienić na starą ?
ID posta: 359723 Skopiuj do schowka
 
 
apollo
ExcelSpec


Pomógł: 1234 razy
Posty: 4296
Wysłany: 05-01-2019, 03:02   

Dziękuję Wam wszystkim.
ID posta: 359728 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