![]() |
|
|
Banner und Co. |
![]() |
Ads |
|
Themen-Optionen | Ansicht |
![]() |
#1 |
![]() MOF Koryphäe |
![]() Guten Tag,
ich würde gerne, dass eine Exceldatei ab einem bestimmten Datum nur noch mit einem Passwort zu öffnen ist. Wer kann mir dafür einen sicheren, einfachen und erschwinglichen Code erstellen? Vielen Dank. __________________ __________________________Mit freundlichen Grüßen christian30031982 Win 10 - 64 bit / Office 2016 - 64 bit / Office 365 - 64 bit |
![]() |
![]() ![]() |
![]() |
#2 |
![]() MOF Profi |
![]() Hallo,
teste mal Code: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) With ThisWorkbook If Now > #10/1/2018# And Not .HasPassword Then .SaveAs .Path & "" & .Name, , "123" End With End Sub mfg |
![]() |
![]() ![]() |
![]() |
#3 |
Threadstarter
![]() ![]() MOF Koryphäe |
![]() Hallo,
vielen Dank für den Code. Ich kann Ihn erst am Freitag testen. Wo genau muss ich den Code in meine Datei einbauen? Ich denke in ThisWorkbook. Ich schreibe dir eine PN, wenn ich getestet habe. Vielen Dank __________________ __________________________Mit freundlichen Grüßen christian30031982 Win 10 - 64 bit / Office 2016 - 64 bit / Office 365 - 64 bit |
![]() |
![]() ![]() |