2017-01-15 5 views

Antwort

0

Wenn Ihr Checkbox CheckBox1 genannt wird und die Netzwerknamen der Autorisierungsstelle ist „JSMITH“ dann können Sie verwenden:

Private Sub CheckBox1_Click() 

    If Environ("username") <> "JSMITH" Then 
     CheckBox1.Value = False 
    End If 

End Sub 
+0

hallo, thnks. Leider scheint es nicht zu funktionieren. Ich habe das Makro meinem Kontrollkästchen zugewiesen und wenn ich es ankreuze, sagt es immer "Objekt benötigt". Mache ich etwas falsch? – Elena

+0

OK, legen Sie in den Eigenschaften für das Kontrollkästchen die Eigenschaft "Cell link" auf eine Tabellenkalkulationszelle fest, mit der Sie den Wert dieses Kontrollkästchens speichern können. Angenommen, Sie haben den Zell-Link auf A1 gesetzt. Ändern Sie die Codezeile innerhalb des 'If'-Blocks, um' Range ("A1") = False 'zu lesen. – Skippy

Verwandte Themen