Passwortgeschützte Datei umschalten

[cysu11]

Hi,


das liegt daran, dass die Datei bereits offen ist, deswegen die "Application.DisplayAlerts = False".

Hat jemand ne Idee, warum das nicht funktioniert?


Danke
VG
Alexandra

[Steffl]

Hallo Alexandra,

wenn Du die Codezeile mal auskommentieren würdest, was kommt dann für eine Fehlermeldung?

[Käpt'n Blaubär]

Hallo Alexandra,

ich habe nicht so recht durchgeblickt, was Du da wirklich erreichen willst.

Im Grunde habe ich auch nur ein paar Fehler gefunden und korrigiert.
So richtig auf einen grünen Zeig bin ich auch darum nicht gekommen, weil einige der anderen Helfer ihre Pfadangaben dort verewigt haben.

Ich habe das im Übrigen auch gemacht, also bitte vor dem Testen unbedingt in den beiden Codes die Pfade und die Dateinamen wieder umbenennen.

Da ich nicht begriffen habe, was das Ganze tun soll und die hergegebene Datei auch nicht sehr aussagefreudug war, bin ich mal gespannt, ob ich die Ungeschicklichkeiten nur verschlimmbessert habe.

Code:

Option Explicit

Private Sub CommandButton2_Click()
'  Viewmodus

'  Application.DisplayAlerts = False

'  Range("A1:AA1").Interior.Color = &HFF00&                                          '  grün
   Range("A1:AA1").Interior.ColorIndex = 35                                          '  grün

   ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & _
      "\" & "Alexandra_Test.xlsm", _
      Password:="", WriteResPassword:="123"

'  Application.DisplayAlerts = True

   Workbooks.Open Filename:=ThisWorkbook.Path & _
      "\" & "Alexandra_Test.xlsm", ReadOnly:=True
End Sub

Private Sub CommandButton1_Click()
' Editiermodus

'  Application.DisplayAlerts = False

   With Workbooks.Open(Filename:="F:\xl_Sicherungsdateien" & _
      "\" & "Alexandra_Test.xlsm", ReadOnly:=False, Password:="", _
      WriteResPassword:="123")

'     .Sheets("Tabelle1").Range("A1:AA1").Interior.Color = &HFF&              '  rot
      .Sheets("Tabelle1").Range("A1:AA1").Interior.ColorIndex = 3             '  rot
   End With

'  Application.DisplayAlerts = True
End Sub

[Rabe]

Hi Peter,

ich habe nicht so recht durchgeblickt, was Du da wirklich erreichen willst.
[...]
Da ich nicht begriffen habe, was das Ganze tun soll und die hergegebene Datei auch nicht sehr aussagefreudug war, bin ich mal gespannt, ob ich die Ungeschicklichkeiten nur verschlimmbessert habe.

sie öffnet standardmäßig die Datei schreibgeschützt. Das Passwort soll nicht fix im Code stehen.

Wenn Sie nun etwas ändern muß, drückt sie auf den Button "Edit-Modus", dann soll das Passwort abgefragt werden und dann wird die Datei bearbeitet und abgespeichert. Wenn Sie nun auf den Button "View-Modus" drückt, wird wieder das Passwort abgefragt und die Datei schreibgeschützt abgespeichert.