sicuramente è un metodo sbagliato ma è l'unico che mi è venuto in mente non conoscendo benissimo excel.
allora vediamo se riesco a spiegarmi.

se il foglio è protetto avrai delle celle in cui è impossibile scrivere mentre quando non è protetto puoi tranquillamente scriverci dentro... giusto?

allora ho pensato che se creo una macro che scrive in una cella se questa riesce il foglio non è protetto, se fallisce è protetto:

codice:
On Error GoTo Err1'inizializza gestione errori
      
       Range("A1").Select
      ActiveCell.FormulaLocal = "a" 'se fallisce da errore quindi il foglio è protetto e va alla gestione errori altrimenti scrive nella cella e ti avverte che il foglio è non protetto
      MsgBox "foglio non protetto
Exit Function
    
Err1:
MsgBox "foglio protetto"