Moderatori: Anthony47, Flash30005
Private Sub Workbook_Open()
For i = 1 To Sheets.Count
Sheets(i).Visible = False
Next i
Userform1.Show
End Sub
Private CommandButton1_Click()
fgl = CDbl(tetxbox1.Value)
Sheets(fgl).Visible = True
Unload.Userform1
End Sub
Sub NascondiFoglio()
ActiveSheet.Visible = False
Userform1.Show
End Sub
Per quanto appena detto, l'operazione e' impossibile: almeno 1 foglio deve essere visibile.Interessa che dall'UserForm che sono tre button mi vadano ad aprire il foglio3 nascondendo gli altri due fogli e dal foglio3 chiudendo dal pulsante mi si dovrebbe riapparire l'UserForm nascondendo il foglio3
Sheets("Foglio3").Visible = True
Sheets("Foglio1").Visible = False
Private Sub Workbook_Open()
fissosh = "Foglio1" '<<< Foglio ESISTENTE che deve rimanere visibile
For I = 1 To Sheets.Count
Sheets(I).Visible = True
Next I
For I = 1 To Sheets.Count
If Sheets(I).Name <> fissosh Then Sheets(I).Visible = False
Next I
UserForm1.Show
End Sub
Private Sub Workbook_Open()
Dim I As Integer, mNome As String
mNome = ActiveSheet.Name
For I = 1 To Sheets.Count
If Sheets(I).Name <> mNome Then
Sheets(I).Visible = False
End If
Next I
End Sub
Torna a Applicazioni Office Windows
Come evidenziare aree separate di un foglio Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 18 |
Codice VBA per stampare UserForm attiva Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 8 |
Visitano il forum: Nessuno e 18 ospiti