Hallo andre (Das ist eine vernünftige Anrede)
Ich weiss nicht wie gut deine Exceluser sind, aber für den Hausgebrauch könnte das hier reichen.
Eine Rückmeldung wäre nett.
Option Explicit
Public Sub n()
MsgBox Environ("username")
End Sub
Private Sub Workbook_Open()
'statt "test" den namen hinschreiben den public n() rausschmeisst.
If Environ("username") = "test" Then
Application.CommandBars("Tools").FindControl(ID:=30138).Enabled = True
Else:
Application.CommandBars("Tools").FindControl(ID:=30138).Enabled = False
End If
End Sub
ransi
hallo andre
Ich versuchs mal:
das makro prüft wer da grade am pc sitzt. wenn es der falsche ist, wird der button
"Veränderungen verfolgen /Veränderungen hervorheben" deaktiviert.
Öffne mal eine kopie von deiner Datei.
Dann Alt+F11
In dem Fenster das dann kommt links (Eine art explorer) doppelklick auf DieseArbeitsmappe.
in das sich dann öffnende Fenster kpierst du den code.
dann setzt du den cursor in das erste modul und drückst F5.
Public Sub n()
MsgBox Environ("username")
End Sub
jetzt sollte eine box aufgehen und dir den namen anzeigen von dem der grade am pc angemeldet ist.
den merkst du dir und schreibst ihn anstatt test zwischen die Anführungszeichen.
Private Sub Workbook_Open()
'statt "test" den namen hinschreiben den public Sub n() rausschmeisst.
If Environ("username") = "test" Then
Application.CommandBars("Tools").FindControl(ID:=30138).Enabled = True
Else: 'wenn username <> dein name dann .enabled=false
Application.CommandBars("Tools").FindControl(ID:=30138).Enabled = False
End If
End Sub
den code zum aktivieren von "Veränderungen verfolgen /Veränderungen hervorheben"
hatte ich vergessen zu posten.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Tools").FindControl(ID:=30138).Enabled = True
End Sub
du musst jetzt also die 3 subs in DieseArbeitsmappe reinkopieren.
ransi
Private Sub Workbook_Open()
If Environ("username") = "ez" Then
Application.CommandBars("Tools").FindControl(ID:=30138).Enabled = True
Else: wenn UserName <> ez.Enabled = False
Application.CommandBars("Tools").FindControl(ID:=30138).Enabled = False
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Tools").FindControl(ID:=30138).Enabled = True
End Sub
Public Sub n()
MsgBox Environ("username")
End Sub
Private Sub Workbook_Open()
'statt "test" den namen hinschreiben den public Sub n() rausschmeisst.
If Environ("username") = "ez" Then
Application.CommandBars("Tools").FindControl(ID:=30138).Enabled = True
Else: 'wenn username <> dein name dann .enabled=false
Application.CommandBars("Tools").FindControl(ID:=30138).Enabled = False
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Tools").FindControl(ID:=30138).Enabled = True
End Sub