di nuovo ciao
ho questa macro che abbiamo creato in una altro post:
Private Sub Workbook_Open()
Foglio1.Select
If Application.username <> "MIO NOME" Then
Foglio1.Shapes.Range(Array("CommandButton1")).Visible = msoFalse
Foglio1.Shapes.Range(Array("CommandButton2")).Visible = msoFalse
Else
Foglio1.Shapes.Range(Array("CommandButton1")).Visible = msoTrue
' Foglio1.Shapes.Range(Array("CommandButton2")).Visible = msoTrue
End If
End Sub
oltre a MIO NOME, vorrei creare un gruppo di autorizzati.
la lista degli autorizzati pensavo di inserirla in una userform tipo questa:
http://rapidshare.com/share/74A9ABCEF5E ... 9B56CED21D
in ogni textbox c'è un nome e nella checkbox a fianco--> true=autorizzato, false= non autorizzato.
PRIMO PROBLEMA:
alla chiusura della Userform con il pulsante esci ( userform1.hide) i valori delle checkbox si resettano
SECONDO PROBLEMA:
per il controllo avevo pensato a questa macro, ma non funziona scusate per voi sarà uno scempio, ma sono un principiante!
Private Sub Workbook_Open()
amministratore = Application.username
For Each TextBox In UserForm1
If TextBox.Value = amministratore Then
Foglio1.Shapes.Range(Array("CommandButton1")).Visible = msoTrue
Foglio1.Shapes.Range(Array("CommandButton2")).Visible = msoTrue
Exit Sub
Else
Foglio1.Shapes.Range(Array("CommandButton1")).Visible = msoFalse
Foglio1.Shapes.Range(Array("CommandButton2")).Visible = msoFalse
End If
Next TextBox
End Sub
il testo aggiungi dovrebbe creare una nuova textbox e una nuova checkbox per inserire un nuovo nome,
TERZO PROBLEMA:
mentre riesco più o meno a crearli sul foglio, non riesco a crearli nella macro.
potete aiutarmi?
grazie