Fai la tua domanda
0

Modulo che sparisce

chiesto il 2018-12-03 19:31:51 +0200

Immagine gravatar per MarcoK

Ciao a tutti. Ho un file Calc con tutto il mio magazzino aziendale, con all'interno diversi fogli e diverse macro che mi sono creato. Ho un problema con un modulo: Creo un formulario, con un solo Checkbox, che mi serve, in caso di preventivo ad un cliente, per bloccare alcuni valori all'interno di cerce celle. Inspiegabilmente questo modulo, dopo tot tempo, scompare. Il file è salvato su Dropbox, non viene aperto da altri. Inizialmente pensavo fosse dovuto ad un errore di DB ma oggi ho provato a salvare il file e lasciare la finestra aperta tutto il giorno, usando normalmente il file per interrogazini, inserimento dati ecc. Ogni tanto nel pomeriggio sono andato a controllare se il modulo era presente e 10 minuti prima di scrivere questo messaggio ho ricontrollato e per l'ennesima volta il modulo o meglio , la chekbox è sparita. Infatti, la macro che mi calcola il prezzo e si basa sul flag di quella checkbox si blocca perchè mi dice che non è presente nessuna risorsa con quel nome.

La cosa è successa repentinamente nei giorni scorsi. Potrebbe essere legata alla macro che cancella tutte le foto che carico dinamicamente?

Sub clearGraphs
'oDrawPages = Target.getDrawPages()
oDrawPages = ThisComponent.getDrawPages()
If oDrawPages.hasElements() Then
  For i = 0 To oDrawPages.getCount() - 1  REM # For all drawpages in workbook
      oDrawPage = oDrawPages.getByIndex(i)
      If oDrawPage.hasElements() Then
         For j = (oDrawPage.getCount() - 1) To 0 Step -1
             oShape = oDrawPage.getByIndex(j)
             oDrawPage.remove(oShape)
         Next j
      EndIf
  Next i
EndIf
End Sub

A cosa potrebbe essere dovuto secondo voi?

modifica retag flag offensive close merge delete

1 Answer

0

risposto il 2018-12-03 21:44:28 +0200

Immagine gravatar per MarcoK

updated 2018-12-04 17:58:20 +0200

UPDATE1: Nel rileggere la domanda dopo averla scritta mi sono accorto che forse mi ero risposto da solo. E cosi è stato: è proprio quella macro che va a cancellare in tutti i fogli tutti gli elementi disegno. Quindi mi chiedo: è possible bloccare un elemento disegno?

UPDATE2: Ho risolto il problema andando semplicemente ad aggiungere un ciclo IF dove controllo la presenza di DrowPages in tuti i fogli ed escludendo dalla ricerca il foglio che mi interessa non sia modificato.

Sub _clearGraphs
oDrawPages = ThisComponent.getDrawPages()
If oDrawPages.hasElements() Then
  For i = 0 To oDrawPages.getCount() - 1  REM # For all drawpages in workbook
      if i <> 2 then
       oDrawPage = oDrawPages.getByIndex(i)
       If oDrawPage.hasElements() Then
          For j = (oDrawPage.getCount() - 1) To 0 Step -1
              oShape = oDrawPage.getByIndex(j)
              oDrawPage.remove(oShape)
          Next j
       EndIf
      End IF
  Next i
EndIf
End Sub
modifica flag offensive delete link more
Login/Signup to Answer

Question Tools

1 follower

Stats

Chieste: 2018-12-03 19:31:51 +0200

Seen: 28 times

Last updated: Dec 04 '18