Probleme mit Makro in geschützter Datei
10.07.2006 10:54:47
Peter
Die Worksheets meines Workbooks habe ich mit folgendem Code gesperrt:
Option Explicit
Sub DateiSchützen()
Dim wks As Worksheet
Dim myPwd As String
Dim myPwd2 As String
'myPwd = Application.InputBox("Passwort eingeben")
'myPwd2 = Application.InputBox("Wiederholung")
If myPwd = myPwd2 Then
For Each wks In ActiveWorkbook.Worksheets
wks.Protect Password:=myPwd, userinterfaceonly:=True
Next wks
End If
End Sub
Nach meinem Verständnis sollten nun Veränderungen per Makro möglich sein.
In Tabelle1 folgenden Code hinterlegt:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("Link").Address Then
Call Aenderungen_durchfuehren
End If
End Sub
In Tabelle1 habe ich im Feld, das den Namen "Link" trägt, eine Liste hinterlegt. Wenn ich nun - bei aktivem Dateischutz - einen anderen Eintrag aus der Liste auswähle (Quelle: Bereich aus einer ebenfalls geschützte Datei), kommt folgende Meldung:
"Die Zelle oder Das Diagramm, das Sie ändern möchten, ist schreibgeschützt. - un dann die Aufforderung, den Blattschutz aufzuheben."
Kann mir jemand sagen, was das Problem ist?
Danke, Peter