Schreibschutz per VBA aufheben

• Schreibschutz per VBA aufheben von Popper vom 23.02.2005 10:57:47
• AW: Schreibschutz per VBA aufheben - von Marcl am 23.02.2005 11:09:18
  • funktioniert nicht richtit... - von Popper am 23.02.2005 11:16:49
    • AW: funktioniert nicht richtit... - von Ralf (Schwabenland) am 23.02.2005 11:23:37
    • AW: funktioniert nicht richtit... - von Bernd am 23.02.2005 11:24:32

Betrifft: Schreibschutz per VBA aufheben von: Popper
Geschrieben am: 23.02.2005 10:57:47

HI!

Habe folgendes Problem:

Ein Makro soll eine Datei öffnen. Die zu öffnende Datei ist mit einem Schreibschutz versehen. Die Prozedur soll automatisch den Schreibschutz mittels Passwort aufheben und weiterlaufen. Wie könnte solche eine Prozedur aussehen?

Kann mir vielleicht jemand helfen. Vielen Dank

Popper

Betrifft: AW: Schreibschutz per VBA aufheben von: Marcl
Geschrieben am: 23.02.2005 11:09:18

Sub ...()
...
ActiveSheet.Unprotect "DeinPaswort"
...
End Sub

Gruß
Marcl




Betrifft: funktioniert nicht richtit... von: Popper
Geschrieben am: 23.02.2005 11:16:49

vielen dank, jedoch klappt das nicht, vielleicht mache ich auch nur einen fehler bei der anwendung. der befehl klappt, um den schutz von sheets aufzuheben, jedoch möchte ich den schreibschutz einer ganzen datei beim öffnen aufheben. die aufforderung beim öffnen zur eingabe des passwortes soll durch das makro erfüllt werden




Betrifft: AW: funktioniert nicht richtit... von: Ralf (Schwabenland)
Geschrieben am: 23.02.2005 11:23:37

Hallo Popper,

so:

Workbooks.Open Filename:="c:\test.xls", Password:="test"

Gruß
Ralf




Betrifft: AW: funktioniert nicht richtit... von: Bernd
Geschrieben am: 23.02.2005 11:24:32

hi,

müsste heissen:

ActiveSheet.Unprotect password:="DeinPaswort"

für entsperren und

ActiveSheet.Protect password:="DeinPaswort"

für sperren

gruss bernd

Beiträge aus den Excel-Beispielen zum Thema "Schreibschutz per VBA aufheben"