Guido (email.it) ha scritto:
Opss ..... quando salvo perde il settaggio e ritorna cliccabile, (argh!)
credo che bisogna prendere il controllo del pulsante e modificargli le
proprietà
Questa disabilita il pulsante dopo aver eseguito il codice
e il salvataggio non sembra riattivarlo...
Ma alla riapertura del doc il pulsante sarò nuovamente attivo...
Se volevi una vera e propria autodistruzione irreversibile e permanente
bisognerà inventarsi qualcos'altro...
Sub macro_che_si_autodisabilita
oDpage = ThisComponent.currentController.activeSheet.DrawPage
xray oDpage.Forms.ElementNames
' controlli che la stringa si "Standard" s se
' non lo è copi il nome che andrai poi ad incollare
' nella riga successiva
oform = oDpage.Forms.getbyname ("Standard")
'forse c'è un modo più semplice.. ma questo funzia
' qui devi inserire il "nome" del controllo
oCtrlModel = oform.getbyname("PushButton")
oCtrlModel.Enabled = true
' xray oCtrlModel.Enabled
' xray oCtrlModel.Enabled
'inserisci qui il codice da eseguire
print " il pulsante adesso sarà disattivato"
'fine macro
oCtrlModel.Enabled = False
End Sub
Bart
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
