PSW INVISIBILI

Hai un problema con Excel?

Nuova discussione

PSW INVISIBILI
di Marius44 data: 24/02/2016 12:14:46
Salve a tutti
Ho creato (appoggiandomi ad un'idea di scossa e usufruendo di una sua macro) un elaborato per la gestione di password Multi-Utente e Multi-Livello.

Lo posto a beneficio di chi volesse utilizzarlo ed aspetto suggerimenti e critiche in senso migliorativo.

Ciao,
Mario
di Marius44 data: 24/02/2016 20:16:08
In sede di ulteriore controllo mi sono accorto (e mi han fatto notare) che vi erano due errori. Prontamente corretti, ora dovrebbe andar bene.

Ciao a tutti,
Mario
di Mohican1989 data: 28/02/2016 23:49:44
Non so come avete preso le le dimensione ma a mio parere io uso un portatile asus e lo zoom è esagerato. Devo usarlo ancora un po per dare altri pareri. Ma lo scopo a parte magari provare alcuni comandi non spesso utilizzati?

di Marius44 data: 29/02/2016 00:24:20
Ciao Mohican1989
Si, hai ragione. In alcuni casi (peraltro molto rari) può creare dei problemi.
Nella macro che vedi sotto puoi "eliminare" la seconda parte della stessa (dove ho messo l'apostrofo iniziale) e non avrai più alcuno zoom. Puoi anche fare come ho fatto sotto, cioè mettere l'apostrofo davanti ad ogni riga di codice.

Ciao,
Mario

Private Sub UserForm_Initialize()
Dim mes1 As String
mes1 = "Inserire il Nominativo-Utente e cliccare Invio (Enter)"
    Call giallo
    Label2.Caption = mes1
    txtUtente.BackColor = vbWhite
    cmdChiude.Enabled = True
'by scossa
'Dim nWd As Double
'  With Me
'    nWd = Application.Width / .Width
'    .Top = Application.Top
'    .Left = Application.Left
'    .Width = Application.Width
'    .Height = Application.Height
'    .Zoom = Round(nWd, 1) * 75 'oppure .Zoom = Round(nWd, 2) * 100 - 1
'  End With
End Sub

di patel data: 29/02/2016 08:51:34
non è un caso raro, sul mio pc desktop occupa tutto lo schermo (risoluz 1920x1080)
ottengo un buon compromesso con
With Me nWd = Application.Width / .Width .Width = Application.Width / 3 .Height = Application.Height / 2 .Zoom = 150 End With

Vuoi Approfondire?