Kompilierungsfehler im Modul
02.12.2013 15:23:26
Ralf
ich habe folgenden Code und bekomme nun bei Öffnen der Mappe einen Kompilierungsfehler im Modul 9:
Ein geschütztes Modul kann nicht angezeigt werden. Für diesen Fehler gibt es die folgende Ursache und Lösung:
Im Code des angegebenen Moduls ist ein Kompilierungsfehler aufgetreten, der aber nicht angezeigt werden kann, weil das Projekt geschützt ist.
Heben Sie den Schutz des Projekts auf, und führen Sie dann den Code erneut aus, um den Fehler anzuzeigen.
Hier der Code:
Option Explicit
Declare
Function GetUserName Lib "advapi32.dll" _
(ByVal lpBuffer As String, nSize As Long) As Long
Sub UserName()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
'Windows Benutzernamen hier anpassen
If Left(Buffer, BuffLen - 1) = "MasterOfDesaster" Then 'Groß- bzw. Kleinschreibung ist zu _
beachten!!!
Call Blattschutz_alle_Tabellen_aufheben
End If
End Sub
Sub Blattschutz_alle_Tabellen_aufheben()
Dim i As Worksheet
For Each i In ActiveWorkbook.Worksheets
i.Unprotect Password:="passwort"
Next i
End Sub
Sub Blattschutz_alle_Tabellen()
Dim i As Worksheet
For Each i In ActiveWorkbook.Worksheets
i.Protect Password:="passwort", DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFiltering:=True
Next i
ThisWorkbook.Save
End Sub
Weiß jemand, warum es hier einen Fehler gibt?
Vielen Dank im Voraus für eine Rückmeldung.
Viele Grüße
Ralf