AW: Automatische e-mail Abschickung VBA in Excel
25.04.2014 08:13:13
Kazo
Hallo Raphael, danke für deine mühe, jedoch steht bei mir im code keine zeile mit der Endung .Display :-(
ich kopiere ihn mal hier rein:
Private Sub Workbook_Close()
'Blattschutz beim Schließen des Dokuments aktivieren
blattschutz_aktivieren
End Sub
Private Sub Workbook_Open()
'Windows Benutzername auslesen
Dim Benutzername As String
Benutzername = Environ("Username")
Dim admin As Boolean
admin = False
Dim eingeschränkt As Boolean
eingeschränkt = False
Dim Wiederholungen As Integer
'Überprüfen, ob in der Liste "Admin-Benutzer" auf dem Blatt "Hilfstabelle" der Benutzer _
enthalten ist, der geerade das Blatt geöffnet hat
For Wiederholungen = 2 To Sheets("Hilfstabelle").Range("A65536").End(xlUp).Row
If Sheets("Hilfstabelle").Cells(Wiederholungen, 2) = Benutzername Then
admin = True
End If
Next
'Überprüfen, ob in der Liste "Admin-Benutzer" auf dem Blatt "Hilfstabelle" der Benutzer _
enthalten ist, der geerade das Blatt geöffnet hat
For Wiederholungen = 2 To Sheets("Hilfstabelle").Range("A65536").End(xlUp).Row
If Sheets("Hilfstabelle").Cells(Wiederholungen, 3) = Benutzername Then
eingeschränkt = True
End If
Next
'Wenn Benutzername in der Spalte "Admin-User" der Hilfstabelle enthalten, Blattschutz von _
Hilfstabelle und Anforderungen aufheben und Hilfstabelle sichtbar machen
If admin = True Then
Sheets("Anforderungen").Unprotect Password:="Test"
Sheets("Hilfstabelle").Unprotect Password:="Test"
Sheets("Hilfstabelle").Visible = True
'Wenn Benutzername in der Spalte "Anforderungen bearbeitbar" der Hilfstabelle enthalten, _
Anforderungen zum bearbeiten freigeben
ElseIf eingeschränkt = True Then
blattschutz_aktivieren
Sheets("Anforderungen").Unprotect Password:="Test"
Else
'Blattschutz beim Öffnen des Dokuments aktivieren
blattschutz_aktivieren
End If
End Sub
'Blattschutz des Dokuments aktivieren
Private Sub blattschutz_aktivieren()
Sheets("Anforderungen").Protect userinterfaceonly:=True, Password:="Test"
Sheets("Anforderungen").EnableAutoFilter = True
'Blatt Hilfstabelle verbergen
Sheets("Hilfstabelle").Unprotect Password:="Test"
Sheets("Hilfstabelle").Visible = xlVeryHidden
Sheets("Hilfstabelle").Protect Password:="Test"
End Sub