¡¡
¡¡
¡¡
|
 |
 |
|
 |
 |
|
¡¡ |
¡¡ |
¡¡ |
¡¡ |
* ´äº¯ÇϽô ºÐµé²² µµ¿òÀÌ µÇµµ·Ï ÀÚ½ÅÀÇ È¯°æÀ» ¾Æ·¡ Ç׸ñ ¿·¿¡ ±âÀçÇØ ÁÖ¼¼¿ä.
- ¿¢¼¿ ¹öÀü(95,97,2000,xp,2003,2007):2007
* ¾Æ·¡ÁÙ¿¡ Áú¹®À» ÀÛ¼ºÇϼ¼¿ä >>
¾È³çÇϼ¼¿ä.
VBA¸¦ ÀÌ¿ëÇÏ¿© "A2:C11"±îÁö ¼öÁ¤À» ¸øÇÏ°Ô ÇÏ°í ½Í½À´Ï´Ù.
¾î¶² ÇÔ¼ö¸¦ ½á¾ß Çϳª¿ä?
½¬¿îµí Çϸ鼵µ ¸·»ó Protect µîÀ¸·Î º¸È£ÇÏ·Á´Ï±î ¾ÈµÇ³×¿ä..
¾Æ¿ï·¯ ƯÁ¤ ½ÃÆ®¿¡¼ ¸ðµç Shape¸¦ »èÁ¦ÇÏµÇ Ä¿¸àµå¹öư¸¸ »èÁ¦¾ÈµÇ°Ô ÇÒ ¼ö ÀÖ³ª¿ä?
°¨»çÇÕ´Ï´Ù.
==============[cycy´Ô ±Û¿¡ ´ëÇÑ ´äº¯ÀÔ´Ï´Ù]==============
VBA¸¦ ÀÌ¿ëÇÏ¿© "A2:C11"±îÁö ¼öÁ¤À» ¸øÇÏ°Ô ÇÏ°í ½Í½À´Ï´Ù.
==>
Sub userProtect()
With ActiveSheet
.Unprotect
With .Cells
.Locked = False
.FormulaHidden = False
End With
With .Range("A2:C11")
.Locked = True
.FormulaHidden = False
End With
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub
¾Æ¿ï·¯ ƯÁ¤ ½ÃÆ®¿¡¼ ¸ðµç Shape¸¦ »èÁ¦ÇÏµÇ Ä¿¸àµå¹öư¸¸ »èÁ¦¾ÈµÇ°Ô ÇÒ ¼ö ÀÖ³ª¿ä?
==>
Sub del_Shape()
Dim shpX As Shape
Dim blnX As Boolean
For Each shpX In ActiveSheet.Shapes
blnX = True
Select Case shpX.Type
Case msoOLEControlObject
If shpX.DrawingObject.OLEType = 2 Then
If InStr(shpX.OLEFormat.progID, "CommandButton") Then blnX = False
End If
Case Else
If shpX.FormControlType = 0 Then blnX = False
End Select
If blnX Then shpX.Delete
Next
End Sub
|
¡¡ |
[ºÒ·® °Ô½Ã¹° ½Å°í]
|
|
|
 |
ÀÛ¼ºÀÏ : 2019-02-12(15:27)
ÃÖÁ¾¼öÁ¤ÀÏ : 2019-02-12(15:27) |
¡¡ |
|
 |
|
|
 |