2017-01-15 71 views

回答

0

如果複選框被稱爲CheckBox1和authoriser的網名是「JSMITH」,那麼你可以使用:

Private Sub CheckBox1_Click() 

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

End Sub 
+0

喜,thnks。不幸的是,它似乎沒有工作..我把宏指定給我的複選框,當我打勾時,它一直說「對象需要」。難道我做錯了什麼? – Elena

+0

好的,在複選框的屬性中,將「單元格鏈接」屬性設置爲可用於存儲此複選框值的電子表格單元格。假設您將單元格鏈接設置爲A1。更改'If'塊內的代碼行以讀取'Range(「A1」)= False'。 – Skippy