Nada

541 palavras 3 páginas
'Desproteger Planilha Sub DesprotegerPlanilhaAtiva() Dim i, i1, i2, i3, i4, i5, i6 As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer On Error Resume Next For i = 65 To 66 For j = 65 To 66 For k = 65 To 66 For l = 65 To 66 For m = 65 To 66 For i1 = 65 To 66 For i2 = 65 To 66 For i3 = 65 To 66 For i4 = 65 To 66 For i5 = 65 To 66 For i6 = 65 To 66 For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next Next Next Next Next Next Next Next Next Next Next Next End Sub Células Absolutas vs. Relativas
Select your range of cells and run the macro.

Sub Absolute()
Dim cell As Range
For Each cell In Selection
If cell.HasFormula Then cell.Formula = Application.ConvertFormula _
(cell.Formula, xlA1, xlA1, xlAbsolute)
End If
Next
End Sub

Sub AbsoluteRow()
Dim cell As Range
For Each cell In Selection
If cell.HasFormula Then cell.Formula = Application.ConvertFormula _
(cell.Formula, xlA1, xlA1, xlAbsRowRelColumn)
End If
Next
End Sub

Sub AbsoluteCol()
Dim

Relacionados

  • nada nada nada nada
    734 palavras | 3 páginas
  • Nada nada nada
    2135 palavras | 9 páginas
  • nada nada nada nada
    1270 palavras | 6 páginas
  • nada nada nada
    1212 palavras | 5 páginas
  • nada nada nada
    351 palavras | 2 páginas
  • nada nada nada
    669 palavras | 3 páginas
  • Na, nada, nada e nada
    372 palavras | 2 páginas
  • Nada com nada
    597 palavras | 3 páginas
  • nada nada nada
    938 palavras | 4 páginas
  • Nada nada nada
    1486 palavras | 6 páginas