Oggetti invisibili da Opzioni privacy, Controllo documento

Question

Buongiorno a tutti

in Excel 2007 eseguendo il controllo documento nelle opzioni privacy

alla voce Contenuto invisibile mi dice

Numero di oggetti invisibili trovati: 2 e viene visualizzato il pulsante Rimuovi tutto.

---

Come posso vedere questi due oggetti invisibili  ?

N.B. La rimozione funziona ma io sono curioso di conoscere questi due oggetti che sto andando a rimuovere

Answer 1

Buongiorno a tutti

in Excel 2007 eseguendo il controllo documento nelle opzioni privacy

alla voce Contenuto invisibile mi dice

Numero di oggetti invisibili trovati: 2 e viene visualizzato il pulsante Rimuovi tutto.

---

Come posso vedere questi due oggetti invisibili  ?

N.B. La rimozione funziona ma io sono curioso di conoscere questi due oggetti che sto andando a rimuovere

Prova a far girare questa macro dopo averla copia/incollata in un modulo standard:

Public Sub m()

    Dim s As String

    Dim shp As Shape

    Dim sh As Worksheet

    For Each sh In ThisWorkbook.Worksheets

        For Each shp In sh.Shapes

            If shp.Visible = False Then

                s = s & shp.Name & vbNewLine

            End If

        Next

    Next

    MsgBox s

End Sub

Se non hai mai utilizzato il vb di Excel, vedi qui:

• http://answers.microsoft.com/it-it/office/wiki/office_2013_release-excel/excel-dove-e-come-inserire-il-codice-visual-basic/ed29ee63-a537-4e5d-8631-76766cf40503

Answer 2

Buongiorno a tutti

in Excel 2007 eseguendo il controllo documento nelle opzioni privacy

alla voce Contenuto invisibile mi dice

Numero di oggetti invisibili trovati: 2 e viene visualizzato il pulsante Rimuovi tutto.

---

Come posso vedere questi due oggetti invisibili  ?

N.B. La rimozione funziona ma io sono curioso di conoscere questi due oggetti che sto andando a rimuovere

Ciao Baffo,

Alt-F11 per aprire l'Editor di VBA

Menu  | Inserisci | Modulo

Incolla il suddetto codice:

'=============>>

Option Explicit

'---------------------->>

Public Sub Tester()

Dim WB As Workbook

Dim SH As Worksheet

Dim oObj As OLEObject

Dim i As Long

Dim sStr As String

Dim msgStr As String

Const aStr As String = "OGGETTI ORA VISIBILE"

Set WB = ActiveWorkbook

For Each SH In WB.Worksheets

For Each oObj In ActiveSheet.OLEObjects

With oObj

If .Visible = False Then

sStr = sStr & vbNewLine & .Name & vbTab & SH.Name

.Visible = True

End If

End With

Next oObj

Next SH

msgStr = IIf(CBool(Len(sStr)), sStr, "Nessun oggetto nascosto trovato")

Call MsgBox(Prompt:=msgStr, Buttons:=vbInformation, Title:=aStr)

End Sub

'<<=============

Alt-Q per tornare in Excel

Alt-F8 percaprire la finestrina di Maqcro,

Seleziona Tester

Esegui

===

Regards,

Norman

Answer 3

Dim oObj As OLEObject

For Each oObj In ActiveSheet.OLEObjects

Ciao Norman. Se utilizzo OLEObject, se ho immagini nascoste non le rileva.

A te si?

Con Shape rileva sia i controlli che le immagini, Office 2007/2010/2013

Grazie.

Ciao Mauro,

Hai ragione, e non sarebbe solo immagini che non sarebbero riconosciute!

===

Regards,

Norman

Answer 4

Ciao Baffo,

La riga

For Each oObj In ActiveSheet.OLEOBJECTS

avrebbe dovuto essere

For Each oObj In SH.OLEOBJECTS

===

Regards,

Norman

Answer 5

Dim oObj As OLEObject

For Each oObj In ActiveSheet.OLEObjects

Ciao Norman. Se utilizzo OLEObject, se ho immagini nascoste non le rileva.

A te si?

Con Shape rileva sia i controlli che le immagini, Office 2007/2010/2013

Grazie.