home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 July / CHIP_07_2004.ISO / downloads / 611445 / Listing07.txt
Encoding:
Text File  |  2004-05-10  |  2.8 KB  |  143 lines
  1. Update --------------------------------------------
  2.  
  3. Sub Blattschutz()
  4. Dim i As Integer
  5. For i = 1 To ActiveWorkbook.Worksheets.Count
  6. ActiveWorkbook.Worksheets(i).Activate
  7. ActiveSheet.Protect Password:="DeinPasswort"
  8. Next i
  9. End Sub
  10.  
  11. Sub Blattschutz_freigeben()
  12. Dim i As Integer
  13. Dim pw As String
  14. For i = 1 To ActiveWorkbook.Worksheets.Count
  15. ActiveWorkbook.Worksheets(i).Activate
  16. ActiveSheet.Unprotect Password:="DeinPasswort"
  17. Next i
  18. End Sub
  19.  
  20.  
  21.  
  22.  
  23. Tipp 2 ------------------------------------------
  24.  
  25. Direkt-Link fⁿr XP-SP1:
  26.  
  27. http://download.microsoft.com/download/a/4/c/a4ce1a3b-fac8-4597-be33-c10ced905c3b/xpsp1a_de_x86.exe
  28.  
  29.  
  30. Link fⁿr alle verfⁿgbaren Service Packs:
  31.  
  32. http://www.microsoft.com/germany/ms/technetservicedesk/servicepacks.htm
  33.  
  34.  
  35.  
  36.  
  37.  
  38. Tipp 3 -----------------------------------------
  39.  
  40. Option Explicit
  41.  
  42. Dim objShell
  43. Dim intVerzoegerung  
  44.  
  45. ' Zuerst wartenà
  46. intVerzoegerung = 60000    ' in Millisekunden
  47. WScript.Sleep intVerzoegerung
  48.  
  49. ' Jetzt die Programme startenà
  50. Set objShell = Wscript.CreateObject("Wscript.Shell")
  51. objShell.Exec ("C:\WINDOWS\NOTEPAD.EXE")
  52.  
  53.  
  54.  
  55.  
  56. Tipp 5 ------------------------------------------
  57.  
  58.  
  59. http://download.microsoft.com/download/winntsp/install/6.0a/NT4/de/sp6i386.exe
  60.  
  61.  
  62.  
  63.  
  64.  
  65. Tipp 8 ------------------------------------------
  66.  
  67.  
  68. Special USB-Sticks:
  69.  
  70. Download-Adresse fⁿr PowerPoint Viewer 97
  71.  
  72. http://www.microsoft.com/downloads/details.aspx?FamilyID=7c404e8e-5513-46c4-aa4f-058a84a37df1&DisplayLang=de
  73.  
  74.  
  75.  
  76. Tipp 9 ------------------------------------------
  77.  
  78. Download-Adresse fⁿr MobileAssistant
  79.  
  80. www.mobileassistant.de
  81.  
  82.  
  83.  
  84.  
  85.  
  86. Tipp 11 -----------------------------------------
  87.  
  88. Sub Schriftbild_verbessern()
  89.     Selection.Find.ClearFormatting
  90.     Selection.Find.Replacement.ClearFormatting
  91.     With Selection.Find
  92.         .Text = "º"
  93.         .Replacement.Text = "º^s"
  94.         .Forward = True
  95.         .Wrap = wdFindContinue
  96.     End With
  97.     Selection.Find.Execute Replace:=wdReplaceAll
  98.     With Selection.Find
  99.         .Text = "º^s^s"
  100.         .Replacement.Text = "º^s"
  101.         .Forward = True
  102.         .Wrap = wdFindContinue
  103.     End With
  104.     Selection.Find.Execute Replace:=wdReplaceAll
  105.     With Selection.Find
  106.         .Text = "º^s "
  107.         .Replacement.Text = "º^s"
  108.         .Forward = True
  109.         .Wrap = wdFindContinue
  110.     End With
  111.     Selection.Find.Execute Replace:=wdReplaceAll
  112. End Sub
  113.  
  114.  
  115.  
  116.  
  117.  
  118. Tipp 14 -----------------------------------------
  119.  
  120. Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  121.     Dim objMe As Recipient
  122.     Set objMe = Item.Recipients.Add("adresse@provider.de")
  123.     objMe.Type = olBCC 
  124.     x = objMe.Resolve 
  125. End Sub
  126.  
  127.  
  128.  
  129.  
  130.  
  131. Tipp 16 -----------------------------------------
  132.  
  133. [Bitmap Tile Manager]
  134. UseRootForSwap=0
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.