Automatische Sicherungskopie schreibgeschützt

Moderator: ModerationP

Automatische Sicherungskopie schreibgeschützt

Beitragvon gramatbeer » 17. Sep 2021, 13:57

Hallo Leute,

hab einen neuen Kollegen bekommen dem ich meine Excel Tabelle gerne zum "mit schauen" überlassen möchte.
Allerdings habe ich die Angst dass er sie durch unbedachtes klicken "zerschießt"

Jetzt wird die Datei beim schließen ohnehin schon automatisch an einem zweiten Speicherplatz gesichert.
Gibt es da die Möglichkeit diese Sicherungskopie immer auf Schreibgeschützt einzustellen ohne meine Datei in den schreibgeschützten Modus zu verfrachten?

Code: Alles auswählen

Private Sub workbook_beforeClose(Cancel As Boolean)

    Me.SaveCopyAs "O:\WNW\Kundendienst\Einsatzleitung\Sicherung EBW\" & Me.Name

End Sub
lg
Cris

Widows 7, Office 2007
gramatbeer
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 70
Registriert: 24. Jan 2014, 15:16

Re: Automatische Sicherungskopie schreibgeschützt

Beitragvon HKindler » 17. Sep 2021, 14:05

Hi,

meinst du so etwas?
Code: Alles auswählen
Private Sub workbook_beforeClose(Cancel As Boolean)
    Me.Protect "Passwort"
    Me.SaveCopyAs "O:\WNW\Kundendienst\Einsatzleitung\Sicherung EBW\" & Me.Name
    Me.Unprotect "Passwort"
End Sub


Wobei es vermutlich besser ist, deinem Kollegen für das Sicherungsverzeichnis nur lesenden Zugriff zu gewähren.
Im Übrigen: wenn man deine Datei durch "unbedachtes Klicken" kaputt machen kann, dann stimmt mit ihr irgendwas nicht. :wink:
Gruß,
Helmut

----------------------------
Windows 10 Enterprise (64 Bit) / Office 365 ProPlus (32 Bit)
Benutzeravatar
HKindler
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 6465
Registriert: 04. Jul 2013, 09:02
Wohnort: Schwarzwald

Re: Automatische Sicherungskopie schreibgeschützt

Beitragvon snb » 17. Sep 2021, 14:50

Code: Alles auswählen
Sub M_snb()
 setattr "O:\WNW\Kundendienst\Einsatzleitung\Sicherung_EBW\" & Me.Name,1
End Sub


NB. Verzichte auf Leerzeichen in Pathnames.
snb
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8870
Registriert: 25. Sep 2014, 16:37

Re: Automatische Sicherungskopie schreibgeschützt

Beitragvon gramatbeer » 18. Sep 2021, 07:30

Danke schon mal,
Werde das am Montag gleich in die Tat umsetzen und beide Varianten testen.
Lg
lg
Cris

Widows 7, Office 2007
gramatbeer
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 70
Registriert: 24. Jan 2014, 15:16


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: Rolaket123, volti und 28 Gäste