Office nach langer Zeit gekauft (sehr günstig), (früher gecrackt, kann da noch was passieren)?

Hey Leute,

ich brauche objektive Meinungen. Ich benutze seit ca. 3 Jahren das Office 2013. Ich habe es jedes mal gecrackt (jedes Mal, weil Microsoft die Keys anscheinend überprüft. Wenn dann festgestellt wird, dass die Aktivierung nicht über einen echten Key passiert worden ist, wird Office deaktiviert und man muss es erneut cracken. Dass muss man ca. alle 5 Monate machen).

Bis vor ca. einem Jahr habe ich mir dabei auch nix gedacht und es einfach immer wieder neu gecrackt. Jetzt aber hab ich einfach Angst davor, dass ich doch einmal eine Strafe bekommen könnte und dann zahlen muss. Deswegen will ich mir Office jetzt richtig kaufen.

Dazu 2 Fragen:

  1. Wenn ich vor einem Jahr das gecrackt habe, es mir jetzt aber gekauft habe, muss ich da dann noch Angst haben, dass was passiert?
  2. Naja ich dachte mir, dass ich vlt etwas Geld sparen kann, wenn ich den Key online kaufe. Habe ihn mir dann für, 10 Euro auf Rakuten gekauft (habe zwar gelesen, dass man da oft verarscht wird, aber dachte mir ich probiere es mal). Es hat alles geklappt und mein Office ist jetzt auch aktiviert. Ich weiß ja nicht woher der Key kommt. Kann mir da jetzt iwas passieren als Kaeufer? Office ist ja jetzt über meinen Windows Account aktiviert. Das bedeutet ja, dass jetzt quasi nix mehr passieren kann oder?

Danke im voraus

Computer, Software, Windows, Microsoft, Office, Download, Microsoft Office, Crack
Wie kann ich bei Excel einen Button erstellen der abspeichert?

Hallo,

Ich würde gerne bei Excel einen Button erstellen, der die Excel mappe auf dem Desktop abspeichert. Der Name der Datei soll in Zeile A1 stehen.

Den Button habe ich bereits erstellt. Ich scheitere noch bei dem Makro, weil ich keine ahnung davon habe. Ich habe etwas im Internet gefunden, was meinen Vorstellungen nahe kommt. Ich habe versucht es anzupassen, aber irgendwie klappt das alles nicht.

Sub Schaltfläche1_Klicken()
Dim lw_pfad As String
lw_pfad = ActiveSheet.Range("A1").Value
lw_pfad = InputBox("Geben Sie hier das Laufwerk und den Pfad an, wo die Datei gespeichert werden soll." & Chr(13) & Chr(13) & "(Ihre Eingabe wird in A1 als neuer Default-Wert gespeichert.)", "Datei speichern unter...", lw_pfad)
If lw_pfad = "" Then
  MsgBox "Die Datei wird nicht gespeichert, da Sie [Abbrechen] gedrückt oder nichts eingegeben haben.", , "Abbruch"
  Exit Sub
Else
  If Right(lw_pfad, 1) <> "\" Then lw_pfad = lw_pfad & "\"
  ActiveSheet.Range("A1").Value = lw_pfad
Rem MsgBox lw_pfad
ActiveWorkbook.SaveAs lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls gespeichert.", , "OK"
End If
End Sub

Das ist, was ich bis jetzt habe.

Vielen Dank für die Hilfe im Voraus!

Computer, Microsoft, Microsoft Excel, Excel 2010, Technik, Programm, programmieren, Makro, VBA, Technologie, Spiele und Gaming

Meistgelesene Beiträge zum Thema Microsoft